BCI NET 2/BCI NET 2.iso/archives/applications/wp/write.lha/WRITE/WRITE.install

Text File | 1995-01-04 | 29.2 KB | 1,003 lines

;=============================================================================
; Installer SKRIPT für WRITE 3.1236 (04-Jan-95) © 1989 - 1995 by Tim Teulings
;=============================================================================
; Only Experts

(set @user-level 2
)

(set DEMO TRUE
)


(if
  (exists "ENV:WRITE.KEY"
  )
;THEN
 (
   (set DEMO FALSE)
 )
;END
)

(if
  (exists "WRITE.KEY"
  )
;THEN
  (
    (set DEMO FALSE)
  )
;END
)


(set @HOME-DIR (expandpath "")
)

;=============================================================================
; make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
  (
    (abort "WRITE läuft nur mit Kickstart 2.0 oder größer!")
  )
)

(message "\n\n"
         "WRITE - Ein Texteditor © 1989-1995 von Tim Teulings\n"
         "                                                   \n"
         "Bei diesem Produkt handelt es sich um Shareware.   \n"
         "Die Registrierungsgebühr beträgt 30DM.             \n"
         "                                                   \n"
         "Die nicht registrierte Version unterliegt ein paar \n"
         "Einschränkungen, die es nicht erlauben größere     \n"
         "Texte zu bearbeiten.                               \n"
         "                                                   \n"
         "Bitte lesen sie das Kapitel `Copyright' "
         "der Anleitung."
)

(welcome)

(set @default-dest "")

(onerror (

           (if (> @ioerr 0)

              (
                (message "\n"
                         "FEHLER  @ioerr                            \n\n"
                         "Ein Fehler ist aufgetreten.               \n\n"
                         "Bitte informieren sie mich darüber.       \n"
                         "Geben sie dabei genau an wann und unter   \n"
                         "welchen Bedingungen der Fehler aufgetreten\n"
                         "ist.                                      \n\n"
                         "Danke.                                    "
                )
              )
           )
)        )


;=============================================================================
; explain what we are all about...

(if
  (exists "ENV:WRITE"
  )
;THEN
  (
    (message "\n"
             "Dieses Skript hat erkannt, daß sie WRITE bereits    \n"
             "installiert haben und wird nun ihre Version auf den \n"
             "neusten Stand zu bringen.                           \n"
             "Dies bedeutet, daß ihre alten Konfigurationen, wenn \n"
             "sie es wünschen, die Endung '.OLD' bekommen.        \n"
             "Ansonsten befinden sie sich weiterhin im gleichen   \n"
             "Verzeichnis.                                        \n"
             "Vergewissern sie sich bevor sie sie wieder          \n"
             "umbenennen, ob sie immernoch kompatibel sind.       \n"
             "Sollten sie mir ihre Skripts und Konfigurationen    \n"
             "schicken, so werde ich versuchen diese auf den      \n"
             "neusten Stand zu halten und der nächsten Version    \n"
             "beizulegen.                                         "
    )

    (message "\n\n"
             "ALLE ANDEREN ZU WRITE GEHÖRIGEN FILES WERDEN \n"
             "ÜBERSCHRIEBEN. MACHEN SIE VORHER EIN BACKUP, \n"
             "WENN SIE SICH NICHT SICHER SIND, OB...       "
    )

    (set @REINSTALL TRUE)
  )
;ELSE

  (set @REINSTALL FALSE)

;END;
)

(if (= @REINSTALL FALSE)
  (
    (if (askbool (prompt "\n\n"
                         "Soll eine Test-Installation vorgenommen werden?  \n\n"
                         "Dies bedeutet, daß nur ein paar Pfade und Assigns\n"
                         "auf die vorliegenden Daten gelegt werden. WRITE  \n"
                         "kann dann gestartet und getestet werden, ohne das\n"
                         "Daten auf ihre Festplatte kopiert werden. Nach   \n"
                         "einem Reset ist alles wieder beim alten.         \n"
                         "Ansonsten wird eine komplette Installation       \n"
                         "vorgenommen...                                   ")
                 (help   "")
        )
    ;THEN
      (

        (working "Setze ENV:WRITE")

        (set @WRITE-FULL (tackon @HOME-DIR "WRITE")
        )
        (textfile (prompt "")
                  (help   "")
                  (dest   "ENV:WRITE")
                  (append @WRITE-FULL)
        )

        (working "Setze ENV:WRITE.CONFIG")

        (set @CONFIG-FULL (tackon @HOME-DIR "CONFIG")
        )
        (textfile (prompt "")
                  (help   "")
                  (dest   "ENV:WRITE.CONFIG")
                  (append @CONFIG-FULL)
        )

        (working "assign LIBS: /LIBS ADD")
        (run ("assign LIBS: \"%s\" ADD" (tackon @HOME-DIR "LIBS"))
        )

        (working "assign REXX: /REXX ADD")
        (run ("assign REXX: \"%s\" ADD" (tackon @HOME-DIR "REXX"))
        )

        (set @default-dest (tackon @HOME-DIR "WRITE")
        )

        (message "\n\nDa in der WRITE-Konfiguration einige globale \n"
                 "Hotkeys definiert werden, sowie einige wenige\n"
                 "andere Einstellungen (->Backup) sich auf     \n"
                 "eventuell nicht vorhandene Pfade beziehen,   \n"
                 "kann es zu entsprechenen unerwarteten        \n"
                 "Verhalten und damit verbundenen Fehler-      \n"
                 "meldungen kommen.                            \n"
                 "Es wird empfohlen, zum genaueren Testen auf  \n"
                 "jedenfall eine dauerhafte Installation vorzu-\n"
                 "nehmen und die Dokumentation ausführlich zu  \n"
                 "lesen.                                       "
        )

        (message "\n\nDies ist nur eine Demo-Version!!!\n\n"
                  "Wollen sie sich registrieren lassen, so schreiben sie an:"
        )

        (message "\n"
                 "Tim Teulings                                  \n"
                 "An der Dorndelle 16                           \n"
                 "59192 Bergamen (Deutschland)                  \n\n"
                 "MausNet: Tim Teulings @ UN                    \n"
                 "InterNet: [e-mail]                   \n\n"
                 "Und überweisen sie 30 DM auf folgendes Konto: \n"
                 "Sparkasse Berkamen - Bönen                    \n"
                 "BLZ     : 410 518 45                          \n"
                 "KontoNr.: 16186496                            "
        )

        (exit)
      )
    )
  )
)


;=============================================================================
; Installieren der garbagecollector- und write.library

(message "\nEs werden nun folgende Libraries installiert:\n"
         "                                             \n"
         "garbagecollector.library                     \n"
         "  * Zuständig für die Speicherverwaltung     \n"
         "    von WRITE.                               \n"
         "                                             \n"
         "write.library                                \n"
         "  * Bietet einige nützliche Funktionen für   \n"
         "    externe Programme.                       ")


;=============================================================================
; Installieren der garbagecollector.library

(copylib (prompt "Installiere die\n"
                 "'GarbageCollector.library'\n"
                 "nach LIBS:")
         (help   "Die 'GarbageCollector.library' ist für die "
                 "Funktion von 'WRITE' unbedingt nötig. "
                 "Sie organisiert die Speicherverwaltung.")
         (source "LIBS/garbagecollector.library")
         (dest "LIBS:")
         (confirm)
)

;=============================================================================
; Installieren der write.library

(copylib (prompt "Installiere die\n"
                 "'write.library'\n"
                 "nach LIBS:")
         (help   "Die 'write.library' ist für die "
                 "Funktion von 'WRITE' NICHT unbedingt nötig, wird aber "
                 " z.B. vom Quickstarter benutzt und sollte deshalb "
                 "auch installiert werden.")
         (source "LIBS/write.library")
         (dest "LIBS:")
         (confirm)
)

;=============================================================================
; Installieren der hui.library

(message "\nDesweiteren werden die 'hui.library' sowie \n"
         "einige externe BOOPSI-Objekte installiert: \n"
         "                                           \n"
         "Die hui.library ist zuständig für die font-\n"
         "sensitive Oberfläche von WRITE.            \n\n"
         "© scroller.gadget, get.image,              \n"
         "  fuelgauge.image: Hartmut Goebel          \n\n"
         "© textfile.gadget: Mark Thomas             ")


(copylib (prompt "Installiere die\n"
                 "'hui.library'\n"
                 "nach LIBS:")
         (help   "")
         (source "LIBS/hui.library")
         (dest   "LIBS:")
         (confirm)
)

(if
  (exists "sys:classes"
  )
;THEN
(
  (working   "Kopiere BOOPSI-Objekte nach sys:classes...")

  (copyfiles (help   @copyfiles-help)
             (source "libs/gadgets/")
             (dest   "SYS:classes/gadgets/")
             (infos)
             (all)
  )

  (copyfiles (help   @copyfiles-help)
             (source "libs/images/")
             (dest   "SYS:classes/images/")
             (infos)
             (all)
  )
)
;ELSE
(
  (working   "Kopiere BOOPSI-Objekte nach nach LIBS:...")

  (makedir   "LIBS:gadgets")
  (makedir   "LIBS:images")

  (copyfiles (help   @copyfiles-help)
             (source "libs/gadgets/")
             (dest   "LIBS:gadgets/")
             (infos)
             (all)
  )

  (copyfiles (help   @copyfiles-help)
             (source "libs/images/")
             (dest   "LIBS:images/")
             (infos)
             (all)
  )
)
;END
)

;=============================================================================
; Installieren der garbagecollector Prefs

(if (askbool (prompt "\n\nSoll das Preferences-Programm\n"
                     "'GarbagePrefs'\n"
                     "kopiert werden?\n\n"
                     "Über dieses Programm kann die GarbageCollector.library "
                     "konfiguriert werden.")
             (help   "Nur durch das GrabagePrefs-Programm "
                     "wird die 'garbagecolletor.library' "
                     "optimal konfiguriert!")
    )
;THEN
  (
    (set @PREFS-DIR
      (askdir (prompt  "Wohin soll das Preferences-Programm\n"
                       "'GarbagePrefs'\n"
                       "kopiert werden?")
              (help    @askdir-help)
              (default "SYS:Prefs")
      )
    )

    (set @PREFS-FULL
      (tackon @PREFS-DIR "GarbagePrefs"
      )
    )

    (working ("Entpacke prefs/GarbagePrefs.lha nach \"%s\"" @PREFS-DIR)
    )

    (run ("c/lx -m x prefs/GarbagePrefs.lha \"%s\"" @PREFS-DIR)
    )

    (if (= @REINSTALL FALSE)
      (

        (message "\n\n"
                 "GarbagePrefs wird nun gestartet!           \n"
                 "Selektieren sie das Menü 'Editieren/Werte  \n"
                 "vorschlagen' und speichern sie danach ab.  \n"
                 "Lesen sie später, falls sie mit der        \n"
                 "Speicherbenutzung von WRITE nicht zufrieden\n"
                 "sind, den Text 'GarbageCollector.LiesMich',\n"
                 "um den GarbageCollector noch besser an ihr \n"
                 "System anzupassen.                         ")
        (run ("\"%s\"" @PREFS-FULL)
        )
      )
    )
  )
;END
)

;=============================================================================
; Installieren von WRITE

(if
  (exists "ENV:WRITE"
  )
;THEN
  (
    (set @WRITE-DIR (pathonly (getenv "WRITE") )
    )
  )
;ELSE
  (
    (set @WRITE-DIR "SYS:")
  )
;END;
)

(set @WRITE-DIR
  (askdir (prompt  "Wohin soll 'WRITE' kopiert werden?")
          (help    @askdir-help)
          (default @WRITE-DIR)
  )
)


(set @WRITE-FULL (tackon @WRITE-DIR "WRITE"
                 )
)

(copyfiles (prompt "Kopiere 'WRITE' nach:"
                   @WRITE-FULL)
           (help   @copyfiles-help)
           (source "WRITE")
           (dest   @WRITE-DIR)
           (infos)
)

(set @default-dest @WRITE-DIR
)

;=============================================================================
; Installieren von QuickWrite - dem Quickstarter

(if (askbool (prompt "\n\n"
                     "Wollen sie auch QuickWrite, den Quickstarter\n"
                     "von WRITE installiert haben?                \n\n"
                     "Der Quickstarter wird aufgerufen wie WRITE  \n"
                     "selber. Er stellt fest, ob WRITE bereits    \n"
                     "gestartet worden ist, und startet ihn, falls\n"
                     "nicht. Anschließend werden die übergebenen  \n"
                     "Kommandos über den AREXX-Port an WRITE      \n"
                     "weitergeleitet.                             ")
             (help   "")
    )
;THEN
  (
    (set @QS-NAME
      (askstring (prompt  "\n\nWelchen Namen soll der Quickstarter erhalten?")
                 (help    "")
                 (default "WED")

      )
    )
    (set @QS-PATH
      (askdir (prompt  "Wohin wollen sie den Quickstarter kopiert haben?")
              (help    "")
              (default @WRITE-DIR)
      )
    )

    (set @QS-OLD  (tackon @QS-PATH "QuickWrite"))
    (set @QS-FULL (tackon @QS-PATH @QS-NAME))


    (copyfiles (prompt "Kopiere 'QuickWrite' nach:"
                       @QS-OLD)
               (help   @copyfiles-help)
               (source "QuickWrite")
               (dest   @QS-PATH)
               (infos)
    )

    (rename @QS-OLD @QS-FULL)
    (set @QS-OLD  (cat @QS-OLD  ".info"))
    (set @QS-FULL (cat @QS-FULL ".info"))
    (rename @QS-OLD @QS-FULL)

  )
;END
)

;=============================================================================
; Setzen der Umgebungsvariablen WRITE

(working "Setze ENV:WRITE")
(textfile (prompt "")
          (help   "")
          (dest   "ENV:WRITE")
          (append @WRITE-FULL)
)

;=============================================================================
; Setzen der Umgebungsvariablen WRITE für immer

(working "Setzte ENVARC:WRITE")
(textfile (prompt "")
          (help   "")
          (dest   "ENVARC:WRITE")
          (append @WRITE-FULL)
)


;=============================================================================
; Installieren des Keyfiles

(if (exists "WRITE.KEY"
    )
;THEN
  (
    (set @KEY-DIR
      (askdir (prompt  "Wohin soll der Keyfile\n"
                       "'WRITE.KEY'\n"
                       "kopiert werden?")
              (help    @askdir-help)
              (default "s:")
      )
    )

    (set @KEY-FULL (tackon @KEY-DIR "WRITE.KEY"
                     )
    )

    (copyfiles (prompt "Kopiere 'WRITE.KEY' nach:"
                       @KEY-FULL)
               (help   @copyfiles-help)
               (source "WRITE.KEY")
               (dest   @KEY-DIR)
               (infos)
    )

    (textfile (prompt "Setze die Umgebungsvariablen\n"
                      "'WRITE.KEY'\n"
                      "Sie sagt WRITE, wo der den Keyfile finden kann. "
                      "Kann der Keyfile nicht gefunden weren, "
                      "oder ist er ungültig, so  werden einige Optionen "
                      "nicht freigegeben.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENV:WRITE.KEY'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENV:WRITE.KEY")
              (append @KEY-FULL)
    )

    (textfile (prompt "Setze die Umgebungsvariable\n"
                      "'WRITE.KEY'\n"
                      "auch im 'ENVARC:'-Verzeichnis, so daß auch nach einem "
                      "Neustart die Umgebungsvariable gesetzt bleibt.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENVARC:WRITE.KEY'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENVARC:WRITE.KEY")
              (append @KEY-FULL)
    )
  )
;END
)

;=============================================================================
; Kopieren der Konfiguration

(if
  (exists "ENV:WRITE.CONFIG"
  )

;THEN
 (
   (set @CONFIG-DIR (getenv "WRITE.CONFIG")
   )

   (working ("Lösche alle alten #?.CONFIG.PP in %s" @CONFIG-DIR)
   )

   (foreach @CONFIG-DIR "#?.CONFIG.PP"
     (
       (set @this (tackon @CONFIG-DIR @each-name))
       (delete @this)
     )
   )

   (if (askbool (prompt "\n\n"
                        "Wollen sie, daß ihre alten Konfigurationen die   \n"
                        "Endung '.OLD' erhalten?                          \n\n"
                        "Bachten sie, daß dieses Skript einfach alle Files\n"
                        "mit der Endung '.CONFIG' unbenennt. Sollten sich \n"
                        "also andere Dateien im gleichen Verzeichnis      \n"
                        "befinden, könnten diese mit unbenannt werden.    ")
                (help   "")
       )
;THEN
     (

       (working ("Nenne alle #?.CONFIG im Verzeichnis %s in #?.CONFIG.OLD um." @CONFIG-DIR)
       )

       (foreach @CONFIG-DIR "#?.CONFIG.OLD"
         (
           (set @this (tackon @CONFIG-DIR @each-name))
           (delete @this)
         )
       )

       (foreach @CONFIG-DIR "#?.CONFIG"
         (
           (set @this (tackon @CONFIG-DIR @each-name))
           (set @that (tackon @CONFIG-DIR ("%s.OLD" @each-name)))
           (rename @this @that)
         )
       )
     )
   )
;END




 )
;ELSE

 (set @CONFIG-DIR "S:"
 )

;END;
)

(set @CONFIG-FULL (copyfiles (prompt "Welche Konfigurationsfiles sollen "
                                     "kopiert werden?\n\n"
                                     "Geben sie als Zielverzeichnis möglichst "
                                     "ein eigenes,leeres Verzeichnis für WRITE "
                                     "an!")
                             (help   "Der Standardkonfigurationsfile sowie "
                                     "einige Beispielkonfigurationen.")
                             (source "Config")
                             (dest   @CONFIG-DIR)
                             (all)
                             (confirm)
                             (infos)
                  )
)

;=============================================================================
; Setzen der Umgebungsvariablen WRITE.config

(working "Setze ENV:WRITE.CONFIG")
(textfile (prompt "")
          (help   "")
          (dest   "ENV:WRITE.CONFIG")
          (append @CONFIG-FULL)
)

;=============================================================================
; Setzen der Umgebungsvariablen WRITE.CONFIG für immer

(working "Setze ENVARC:WRITE.CONFIG")
(textfile (prompt "")
          (help   "")
          (dest   "ENVARC:WRITE.CONFIG")
          (append @CONFIG-FULL)
)

;=============================================================================
; Installieren der Default-Icons

(message   "\n\nKopiere die Deault-Icons für das App-Icon \n"
           "und das Text-Icon ins Konfigurations-     \n"
           "verzeichnis.                              \n\n"
           "Diese können von Ihnen durch beliebige    \n"
           "andere ersetzt werden. WRITE wird sich    \n"
           "jedoch beschweren, wenn sie sie weglassen.")

(working   "Kopiere Icons...")

(copyfiles (help    "")
           (source  "icons/")
           (dest    @CONFIG-DIR)
           (Pattern "WRITE_#?.info")
;           (confirm)
           (infos)
)

;=============================================================================
; now copy the catalogs

(if (>= (/ (getversion "LIBS:locale.library") 65536) 38)

   (
     (set lang (askoptions (prompt "Welche Sprachen sollen installiert werden?\n\n"
                                   "Besitzen sie z.B. bereits eine deutschsprachige "
                                   "Version von WRITE, brauchen sie nicht extra "
                                   "einen Katalog installieren!")
                           (help   "Eine sehr nützliche Sache:\n"
                                   "'WRITE' unterstützt die 'locale.library', "
                                   "welche ab OS 2.1 vorhanden ist.\n"
                                   "'WRITE' kann damit in weiten Teilen "
                                   "sprachlich angepasst werden!")
                           (choices "english" "deutsch")
                           (default 1)
               )
     )

     (set n 0)
     (while (set language (select n "english"
                                    "deutsch"
                                    ""
                          )
            )
     (
         (if (IN lang n)
           (
             (set target (tackon "Locale:Catalogs" language)
             )
             (makedir target)
             (copyfiles (source (cat "LOCALE/Catalogs/" language))
                            (dest target)
                            (all)
             )
           )
         )
         (set n (+ n 1))
     ))
   )
)

;=============================================================================
; Abfrage, welche Anleitungen installiert werden sollen

(set @DOKBITS
        (askoptions
                (prompt "Welche Anleitungen möchten sie "
                        "installiert bekommen?")
                (help   "WRITE.guide    - Die Anleitung im Amigaguide-Format.\n"
                        "                 (notwendig für die Onlinehilfe!)   \n"
                        "WRITE.makeinfo - Ein .makeinfo-File der Anleitung   \n"
                        "                 (benötigt makeinfo/texinfo!)       \n"
                        "Garbage..Mich  - Textfile über den GarbageCollector \n"
                        "                 (Wichtig, unbedinngt lesen!)       ")
                (choices "WRITE.guide"
                         "WRITE.makeinfo.lha"
                         "GarbageCollector.LiesMich")
                (default 1)
        )
)


;=============================================================================
; Installieren von WRITE.guide

(if (IN @DOKBITS 0
    )
;THEN
  (
    (set @GUIDE-DIR
      (askdir (prompt  "Wohin soll der AmigaGuidefile\n"
                       "'WRITE.guide'\n"
                       "kopiert werden?")
              (help    @askdir-help)
              (default "HELP:deutsch")
      )
    )

    (set @GUIDE-FULL (tackon @GUIDE-DIR "WRITE.guide"
                     )
    )

    (if (exists "Docs/write.guide.lha")
      (
        (working ("Entpacke Docs/WRITE.guide.lha nach \"%s\"" @GUIDE-DIR)
        )

        (run ("c/lx -m x Docs/WRITE.guide.lha \"%s\"" @GUIDE-DIR)
        )

      )
;     ELSE
      (
        (copyfiles (prompt "Kopiere 'WRITE.guide' nach:"
                           @GUIDE-FULL)
                   (help   @copyfiles-help)
                   (source "WRITE.guide")
                   (dest   @GUIDE-DIR)
                   (infos)
        )
      )
    )
;   END

    (tooltype (prompt         "Setzte DefaultTool...")
              (help           "Nichts Gefährliches!")
              (dest           @GUIDE-FULL)
              (noposition)
    )

    (if (>= (/ (getversion "LIBS:locale.library") 65536) 39)

      (
        (textfile (prompt "Setze die Umgebungsvariable\n"
                          "'WRITE.guide'\n"
                          "Sie sagt WRITE, wo der Guide-File zu finden ist. "
                          "Der Guide-File wird für die interaktive Hilfe "
                          "benötigt.\n"
                          "Sollten sie OS 3.0 oder höher besitzen, und "
                          "haben sie den Guide-File in das Verzeichnis "
                          "'HELP:xxx' kopiert, braucht diese Variable "
                          "nicht gesetzt werden. WRITE findet den "
                          "Guide-File automatisch.")
                  (help   "Tatsächlich wird der Pfad in der Datei\n"
                          "'ENV:WRITE.guide'\n"
                          "abgespeichert, was die genannte Wirkung hat.")
                  (dest   "ENV:WRITE.guide")
                  (append @GUIDE-FULL)
        )

        (textfile (prompt "Setze die Umgebungsvariable\n"
                          "'WRITE.guide'\n"
                          "auch im ENVARC: Verzeichnis, so daß auch nach einem "
                          "Neustart die Umgebungsvariable gesetzt bleibt.")
                  (help   "Tatsächlich wird der Pfad in der Datei\n"
                          "'ENVARC:WRITE.guide'\n"
                          "abgespeichert, was die genannte Wirkung hat.")
                  (dest   "ENVARC:WRITE.guide")
                  (append @GUIDE-FULL)
        )
      )
    )

  )
;END
)

;=============================================================================
; Installieren von WRITE.dvi

(if (= DEMO FALSE
    )
;THEN
  (

    (if (IN @DOKBITS 1
        )
    ;THEN
      (

        (set @DVI-DIR
          (askdir (prompt  "Wohin soll das Archiv mit dem makeinfo-File\n"
                           "'WRITE.makeinfo.lha'\n"
                           "kopiert werden?")
                  (default "TEX:")
                  (help    @askdir-help)
          )
        )

        (set @DVI-FULL (tackon @DVI-DIR "WRITE.makeinfo.lha"
                       )
        )

        (working ("Entpacke Docs/WRITE.makeinfo.lha nach \"%s\"" @DVI-DIR)
        )

        (run ("c/lx -m x Docs/WRITE.makeinfo.lha \"%s\"" @DVI-DIR)
        )

      )
    ;END
    )
  )
;ELSE
  (
   (message "\n\nDer makeinfo-File liegt nur der Vollversion bei!"
    )
  )
;END
)

;=============================================================================
; Installieren von GarbageCollector.LiesMich

(if (IN @DOKBITS 2
    )
;THEN
  (

    (set @COLL-DIR
      (askdir (prompt  "Wohin soll die GarbageCollector-Anleitung\n"
                       "'GarbageCollector.LiesMich'\n"
                       "kopiert werden?")
              (default "MAN:")
              (help    @askdir-help)
      )
    )

    (set @COLL-FULL (tackon @COLL-DIR "GarbageCollector.LiesMich"
                   )
    )

    (working ("Entpacke Docs/GarbageCollector.lha nach \"%s\"" @COLL-DIR)
    )

    (run ("c/lx -m x Docs/GarbageCollector.lha \"%s\"" @COLL-DIR)
    )

    (tooltype (prompt         "Setzte DefaultTool...")
              (help           "Nichts Gefährliches!")
              (dest           @COLL-FULL)
              (setdefaulttool @WRITE-FULL)
              (noposition)
    )
  )
;END
)

;=============================================================================
; Installieren der REXX-Script


(if (AND @REINSTALL
         (askbool (prompt "\n\nWollen sie ihre alten REXX-Skripts aufbewahren?")
                  (help   "Ihre alten REXX-Skript werden dann umbenannt!")
         )
    )

;THEN
 (

   (set @REXX-VALID TRUE)

   (set @REXX-DIR
     (askdir (prompt  "Wo haben sie ihre alten "
                      "REXX-Sripts?")
             (default "REXX:")
             (help    @askdir-help)
     )
   )

   (working ("Lösche alle alten #?.wrx.old")
   )

   (foreach @REXX-DIR "#?.wrx.old"
     (
       (set @this (tackon @REXX-DIR @each-name))
       (delete @this)
     )
   )

   (working ("Nenne alle #?.wrx in #?.wrx.old um.")
   )

   (foreach @REXX-DIR "#?.wrx"
     (
       (set @this (tackon @REXX-DIR @each-name))
       (set @that (tackon @REXX-DIR ("%s.OLD" @each-name)))
       (rename @this @that)
     )
   )

 )
;ELSE

 (set @REXX-VALID FALSE)

;END;
)

(if (= @REXX-VALID FALSE)
  (
    (set @REXX-DIR
      (askdir (prompt  "Wohin sollen die REXX-Skripts kopiert werden?")
              (default "REXX:")
              (help    "Dies sind einige AREXX-Files für verschiedene Zwecke. "
                       "Für mehr Information lesen sie das Kapitel 'REXX-Scripts' "
                       "in der Anleitung oderh den Header der einzelnen Scripte.")
      )
    )
  )
)

(working ("Entpacke REXX-Skripts nach \"%s\"" @REXX-DIR)
)

(run ("c/lx -m x REXX/REXX.lha \"%s\"" @REXX-DIR)
)

;=============================================================================

(message "\n\n"
         "Lesen sie nun den Text 'Garbage-Collector.Liesmich'\n"
         "sowie das Kapitel Installation in der Anleitung.   ")

(message "\n\n"
         "Veränderen sie dann anschließend gegebenenfalls,\n"
         "wie auch im Kapitel 'Installation' der Anleitung\n"
         "beschrieben, die Tooltypes des WRITE-Icons sowie\n"
         "die 'SETBACKUP' und 'SETHOTKEY'-Eintäge im File \n"
         "'STARTUP.CONFIG' im Verzeichnis '" @CONFIG-FULL "'.")


;=============================================================================

(if (= DEMO TRUE
    )
;THEN
  (
    (message "\n\nDies ist nur eine Demo-Version!!!\n\n"
              "Wollen sie sich registrieren lassen, so schreiben sie an:")

    (message "\n"
             "Tim Teulings                                  \n"
             "An der Dorndelle 16                           \n"
             "59192 Bergamen (Deutschland)                  \n\n"
             "MausNet: Tim Teulings @ UN                    \n"
             "InterNet: [e-mail]                   \n\n"
             "Und überweisen sie 30 DM auf folgendes Konto: \n"
             "Sparkasse Berkamen - Bönen                    \n"
             "BLZ     : 410 518 45                          \n"
             "KontoNr.: 16186496                            ")
  )
;END
)

;=============================================================================

(message "\n\nFeddich!!!\n\n"
         "Ich wünsche ihnen viel Spaß mit dieser Version von\n\n"
         "WRITE.\n\n"
         "Tim Teulings")